home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024b.dsk / BLACKJACK.bas < prev    next >
BASIC Source File  |  2003-06-12  |  5KB  |  126 lines
  1. 100  TEXT : HOME 
  2. 110  PRINT  CHR$(4);"BLOAD CARD.SHAPE.TABLE,A$6000"
  3. 120  PRINT  CHR$(4);"BLOAD TONE SUB.OBJ,A$300"
  4. 130  POKE 232,0: POKE 233,96
  5. 140  SCALE= 1: ROT= 0
  6. 150  ONERR  GOTO 3500
  7. 160  HGR : POKE 202, PEEK(78): POKE 203, PEEK(79)
  8. 170  FOR I = 51 TO 0  STEP  -1
  9. 180 X =  INT( RND(1) *255)
  10. 190 Y =  INT( RND(1) *130)
  11. 200 CD = I: GOSUB 2000
  12. 210  NEXT I
  13. 220  HCOLOR= 4
  14. 230  FOR Y = 59 TO 99
  15. 240  HPLOT 79,Y TO 199,Y
  16. 250  NEXT Y
  17. 260  HCOLOR= 7
  18. 270  FOR I = 0 TO 8
  19. 280  READ LT
  20. 290  DRAW LT AT 100 +(I *10),79
  21. 300  NEXT I
  22. 310  DATA  24,34,23,25,33,32,23,25,33
  23. 320  HPLOT 79,99 TO 199,99 TO 199,59 TO 79,59 TO 79,99
  24. 330  FOR X = 83 TO 195  STEP 4
  25. 340  DRAW 52 AT X,95
  26. 350  NEXT X
  27. 360  FOR Y = 95 TO 63  STEP  -4
  28. 370  DRAW 52 AT 195,Y
  29. 380  NEXT Y
  30. 390  FOR X = 195 TO 83  STEP  -4
  31. 400  DRAW 52 AT X,63
  32. 410  NEXT X
  33. 420  FOR Y = 63 TO 95  STEP 4
  34. 430  DRAW 52 AT 83,Y
  35. 440  NEXT Y
  36. 450  VTAB 22: HTAB 25: PRINT "BY DARREL RAINES"
  37. 460  PRINT "DO YOU WISH TO SEE INSTRUCTIONS? ";
  38. 470  POKE 28672,1: POKE 28673,60:ER = 0
  39. 480 OF =  -.5
  40. 490 OF =  -OF
  41. 500  FOR X = 87 TO 195  STEP 4
  42. 510  XDRAW 51.5 +OF AT X,95
  43. 520  GOSUB 3000
  44. 530  DRAW 51.5 -OF AT X,95
  45. 540  NEXT X
  46. 550  FOR Y = 91 TO 63  STEP  -4
  47. 560  XDRAW 51.5 +OF AT 195,Y
  48. 570  GOSUB 3000
  49. 580  DRAW 51.5 -OF AT 195,Y
  50. 590  NEXT Y
  51. 600  FOR X = 191 TO 83  STEP  -4
  52. 610  XDRAW 51.5 +OF AT X,63
  53. 620  GOSUB 3000
  54. 630  DRAW 51.5 -OF AT X,63
  55. 640  NEXT X
  56. 650  FOR Y = 67 TO 95  STEP 4
  57. 660  XDRAW 51.5 +OF AT 83,Y
  58. 670  GOSUB 3000
  59. 680  DRAW 51.5 -OF AT 83,Y
  60. 690  NEXT Y
  61. 700  GOTO 490
  62. 1000  REM  * CONTINUE PROGRAM *
  63. 1010  GET A$
  64. 1020  PRINT A$;
  65. 1030  IF A$ = "N"  THEN 1280
  66. 1040  TEXT : HOME : INVERSE : PRINT "RULES OF PLAY:": NORMAL : PRINT : POKE 34,2
  67. 1050  PRINT "  THIS BLACKJACK GAME IS LIKE MOST": PRINT "OTHERS.  EACH PLAYER IS DEALT ONE HAND."
  68. 1060  PRINT "THE PLAYER MUST PLACE A BET BEFORE THE": PRINT "FIRST CARDS ARE DEALT.  AFTER THE FIRST": PRINT "TWO CARDS, EACH PLAYER MAY DRAW ONE CARD";
  69. 1070  PRINT "AT A TIME UNTIL HE HAS MORE THAN 21": PRINT "POINTS OR WANTS TO STAND WITH THE POINT": PRINT "TOTAL THAT HE HAS.  POINTS ARE COUNTED"
  70. 1080  PRINT "AS FOLLOWS:   ACE   -- 1 OR 11 POINTS": HTAB 15: PRINT "FACE  -- 10 POINTS": HTAB 15: PRINT "OTHER -- NUMBER VALUE": PRINT 
  71. 1090  PRINT "  IF YOU BUST, YOU LOSE YOUR BET.  IF": PRINT "YOU GET A BLACKJACK, YOU WIN ONE AND ONE";: PRINT "HALF TIMES YOUR BET.  IF YOU CAN GET"
  72. 1100  PRINT "FIVE CARDS WITHOUT BUSTING, IT WILL": PRINT "COUNT AS A BLACKJACK.  IF THE DEALER": PRINT "BUSTS OR HAS A LOWER POINT TOTAL THAN"
  73. 1110  PRINT "YOU, THEN YOU WIN THE AMOUNT OF YOUR": PRINT "BET.  IF YOU TIE, YOU PUSH (NEITHER WIN": PRINT "NOR LOSE.)"
  74. 1120  GOSUB 4000
  75. 1130  HOME 
  76. 1140  PRINT "  THE DEALER WILL DRAW UNTIL HE HAS 17": PRINT "POINTS.  HE WILL HIT 17 IF AN ACE HAS": PRINT "BEEN COUNTED AS 11 POINTS IN THAT HAND."
  77. 1150  PRINT : PRINT "  THERE ARE TWO SPECIAL RULES FOR THE": PRINT "PLAYER.  HE MAY DOUBLE HIS BET AFTER HE": PRINT "HAS SEEN THE FIRST TWO CARDS OF A HAND."
  78. 1160  PRINT "HOWEVER, IF HE DOES SO HE MUST TAKE ONE,";: PRINT "AND ONLY ONE, MORE CARD AFTER THAT.": PRINT 
  79. 1170  PRINT "IF A PLAYER IS DEALT A PAIR AS THE FIRST";: PRINT "TWO CARDS OF A HAND, HE HAS THE OPTION": PRINT "OF SPLITTING THE CARDS INTO TWO HANDS": PRINT "AND THEN PLAYS FROM THERE.  THIS MAY"
  80. 1180  PRINT "ONLY BE DONE ON THE FIRST TWO CARDS.": PRINT "BOTH OF THESE SPECIAL RULES ARE ALLOWED": PRINT "ONLY IF THE PLAYER HAS THE MONEY TO": PRINT "COVER THE BETS."
  81. 1190  GOSUB 4000
  82. 1200  HOME 
  83. 1210  PRINT "  YOUR GRANDMOTHER HAS GIVEN YOU $1000": PRINT "WHICH YOU ARE STARTING OFF WITH.  SHE": PRINT "WOULD LIKE THE MONEY BACK WHEN YOU"
  84. 1220  PRINT "FINISH.  SO DON'T LOSE IT ALL!!": PRINT : PRINT "YOU MAY BET ANY AMOUNT MORE THAN $5 AND": PRINT "LESS THAN $500.  YOU WILL NEVER BE": PRINT "ALLOWED TO BET MORE THAN YOU HAVE.": PRINT 
  85. 1230  PRINT "  IF YOU DO LOSE ALL OF YOUR MONEY, YOU"
  86. 1240  PRINT "MAY BORROW ANOTHER $1000 FROM A GROUP OF";: INVERSE : PRINT "LOAN SHARKS";: NORMAL : PRINT ".  THESE BOYS PLAY ROUGH SO"
  87. 1250  FLASH : PRINT "WATCH OUT";: NORMAL : PRINT ".": PRINT 
  88. 1260  PRINT "  ENTER 0 AS A BET TO QUIT THE GAME.": PRINT "GOOD LUCK..."
  89. 1270  GOSUB 4000
  90. 1280  TEXT : HOME 
  91. 1290  PRINT 
  92. 1300  PRINT  CHR$(4);"RUN BLACKJACK.2"
  93. 1310  END 
  94. 2000  REM  * CARD DRAW ROUTINE *
  95. 2010  DRAW 18 AT X,Y
  96. 2020 SU =  INT(CD/13):NU = CD -(SU *13)
  97. 2030  HCOLOR= 4 + INT(SU/2)
  98. 2040  DRAW 14 +SU AT X +12,Y +25
  99. 2050  HCOLOR= 7
  100. 2060  XDRAW 1 +NU AT X +5,Y +5
  101. 2070  RETURN 
  102. 3000  REM  * CHECK FOR KEYBOARD INPUT *
  103. 3010  IF  PEEK(49152) >127  THEN 1000
  104. 3020  IF ER = 0  THEN  READ N1,N2: POKE 28674,N1: POKE 28675,N2: CALL 768
  105. 3030  RETURN 
  106. 3500  REM  * ERROR ROUTINE *
  107. 3510 ER = 1
  108. 3520  POKE 216,0
  109. 3530  RESUME 
  110. 4000  REM  * PAUSE UNTIL SPACE BAR *
  111. 4010  VTAB 24: HTAB 9: INVERSE : PRINT "<SPACE BAR TO CONTINUE>";: NORMAL 
  112. 4020  GET A$: IF A$ < >" "  THEN 4020
  113. 4030  RETURN 
  114. 5000  DATA  149,1,141,1,133,1,83,2,133,1,83,2
  115. 5010  DATA  133,1,83,7,74,1,70,1,66,1,83,1
  116. 5020  DATA  74,1,66,2,88,1,74,2,83,6,149,1
  117. 5030  DATA  141,1,133,1,83,2,133,1,83,2,133,1
  118. 5040  DATA  83,7,99,1,111,1,118,1,99,1,83,1
  119. 5050  DATA  66,2,74,1,83,1,99,1,74,2,224,2
  120. 5060  DATA  199,2,149,1,141,1,133,1,83,2,133,1
  121. 5070  DATA  83,2,133,1,83,7,74,1,70,1,66,1
  122. 5080  DATA  83,1,74,1,66,2,88,1,74,2,83,6
  123. 5090  DATA  83,1,74,1,66,1,83,1,74,1,66,2
  124. 5100  DATA  83,1,74,1,83,1,66,1,83,1,74,1
  125. 5110  DATA  66,2,83,1,74,1,83,1,66,1,83,1
  126. 5120  DATA  74,1,66,2,88,1,74,2,83,6